home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tic-ta1a / form1.frm next >
Text File  |  1999-10-11  |  7KB  |  229 lines
  1. VERSION 5.00
  2. Begin VB.Form Main 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Tic-Tac-Toe v0.X"
  5.    ClientHeight    =   3000
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   3000
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    Picture         =   "Form1.frx":014A
  12.    ScaleHeight     =   3000
  13.    ScaleWidth      =   3000
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.Label YPoints 
  16.       BackStyle       =   0  'Transparent
  17.       Caption         =   "=0"
  18.       Height          =   240
  19.       Left            =   630
  20.       TabIndex        =   4
  21.       Top             =   2655
  22.       Width           =   300
  23.    End
  24.    Begin VB.Label XPoints 
  25.       BackStyle       =   0  'Transparent
  26.       Caption         =   "=0"
  27.       Height          =   255
  28.       Left            =   285
  29.       TabIndex        =   3
  30.       Top             =   2460
  31.       Width           =   240
  32.    End
  33.    Begin VB.Label About_Label 
  34.       BackStyle       =   0  'Transparent
  35.       Height          =   240
  36.       Left            =   2400
  37.       TabIndex        =   2
  38.       Top             =   90
  39.       Width           =   240
  40.    End
  41.    Begin VB.Image ImageX 
  42.       Height          =   390
  43.       Left            =   2490
  44.       Picture         =   "Form1.frx":1EB4
  45.       Top             =   2640
  46.       Width           =   375
  47.    End
  48.    Begin VB.Image image0 
  49.       Height          =   390
  50.       Left            =   1995
  51.       Picture         =   "Form1.frx":21A7
  52.       Top             =   2655
  53.       Width           =   375
  54.    End
  55.    Begin VB.Image Spot 
  56.       Height          =   390
  57.       Index           =   8
  58.       Left            =   2055
  59.       Picture         =   "Form1.frx":24A0
  60.       Top             =   2010
  61.       Width           =   375
  62.    End
  63.    Begin VB.Image Spot 
  64.       Height          =   390
  65.       Index           =   7
  66.       Left            =   1290
  67.       Picture         =   "Form1.frx":2799
  68.       Top             =   2040
  69.       Width           =   375
  70.    End
  71.    Begin VB.Image Spot 
  72.       Height          =   390
  73.       Index           =   6
  74.       Left            =   630
  75.       Picture         =   "Form1.frx":2A92
  76.       Top             =   2040
  77.       Width           =   375
  78.    End
  79.    Begin VB.Image Spot 
  80.       Height          =   390
  81.       Index           =   5
  82.       Left            =   1950
  83.       Picture         =   "Form1.frx":2D8B
  84.       Top             =   1380
  85.       Width           =   375
  86.    End
  87.    Begin VB.Image Spot 
  88.       Height          =   390
  89.       Index           =   4
  90.       Left            =   1245
  91.       Picture         =   "Form1.frx":3084
  92.       Top             =   1395
  93.       Width           =   375
  94.    End
  95.    Begin VB.Image Spot 
  96.       Height          =   390
  97.       Index           =   3
  98.       Left            =   600
  99.       Picture         =   "Form1.frx":337D
  100.       Top             =   1440
  101.       Width           =   375
  102.    End
  103.    Begin VB.Image Spot 
  104.       Height          =   390
  105.       Index           =   2
  106.       Left            =   1815
  107.       Picture         =   "Form1.frx":3676
  108.       Top             =   750
  109.       Width           =   375
  110.    End
  111.    Begin VB.Image Spot 
  112.       Height          =   390
  113.       Index           =   1
  114.       Left            =   1170
  115.       Picture         =   "Form1.frx":396F
  116.       Top             =   810
  117.       Width           =   375
  118.    End
  119.    Begin VB.Image Spot 
  120.       Height          =   390
  121.       Index           =   0
  122.       Left            =   555
  123.       Picture         =   "Form1.frx":3C68
  124.       Top             =   825
  125.       Width           =   375
  126.    End
  127.    Begin VB.Label Minimize_Label 
  128.       BackStyle       =   0  'Transparent
  129.       Height          =   240
  130.       Left            =   2100
  131.       TabIndex        =   1
  132.       Top             =   90
  133.       Width           =   240
  134.    End
  135.    Begin VB.Label Exit_Label 
  136.       BackStyle       =   0  'Transparent
  137.       Height          =   240
  138.       Left            =   2670
  139.       TabIndex        =   0
  140.       Top             =   75
  141.       Width           =   240
  142.    End
  143. End
  144. Attribute VB_Name = "Main"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Dim Turn As Byte 'player turn 1=O 5=X
  151.  
  152. Private Sub About_Label_Click()
  153.     MsgBox "TIC-TAC-TOE" + vbCrLf + "Simple Code" + vbCrLf + "For anyone to use and abuse" + vbCrLf + vbCrLf + "JosΘ Machado" + vbCrLf + "a.k.a. MacMadMan" + vbCrLf + "Contact me: jose.machado@virtualazores.com" + vbCrLf + vbCrLf + ":) ENJOY (:"
  154. End Sub
  155.  
  156. Private Sub Exit_Label_Click()
  157.     Unload Me
  158.     Unload WinnerMessage
  159. End Sub
  160.  
  161. Private Sub clear_spots()
  162.     Dim i As Integer
  163.     For i = 0 To 8
  164.         Set Spot(i).Picture = Nothing
  165.         Spot(i).Tag = 0
  166.     Next i
  167. End Sub
  168.  
  169. Private Sub Form_Load()
  170.     image0.Visible = False
  171.     ImageX.Visible = False
  172.     Load WinnerMessage
  173.     clear_spots
  174. End Sub
  175.  
  176. Private Sub Minimize_Label_Click()
  177.     Me.WindowState = vbMinimized
  178. End Sub
  179.  
  180. Private Sub Spot_Click(Index As Integer)
  181.     If Turn = 1 Then
  182.         If Spot(Index).Tag = 0 Then
  183.             Spot(Index).Tag = 1
  184.             Spot(Index).Picture = image0.Picture
  185.             Turn = 2
  186.             checkwinner
  187.         End If
  188.     Else
  189.         If Spot(Index).Tag = 0 Then
  190.             Spot(Index).Tag = 5
  191.             Spot(Index).Picture = ImageX.Picture
  192.             Turn = 1
  193.             checkwinner
  194.         End If
  195.     End If
  196. End Sub
  197.  
  198. Private Sub checkwinner()
  199.     With Spot
  200.         If (.Item(0).Tag = 5 And .Item(1).Tag = 5 And .Item(2).Tag = 5) Or _
  201.            (.Item(3).Tag = 5 And .Item(4).Tag = 5 And .Item(5).Tag = 5) Or _
  202.            (.Item(6).Tag = 5 And .Item(7).Tag = 5 And .Item(8).Tag = 5) Or _
  203.            (.Item(0).Tag = 5 And .Item(3).Tag = 5 And .Item(6).Tag = 5) Or _
  204.            (.Item(1).Tag = 5 And .Item(4).Tag = 5 And .Item(7).Tag = 5) Or _
  205.            (.Item(2).Tag = 5 And .Item(5).Tag = 5 And .Item(8).Tag = 5) Or _
  206.            (.Item(0).Tag = 5 And .Item(4).Tag = 5 And .Item(8).Tag = 5) Or _
  207.            (.Item(2).Tag = 5 And .Item(4).Tag = 5 And .Item(6).Tag = 5) Then
  208.            WinnerMessage.Label2 = "One more to 'X'"
  209.            WinnerMessage.Show 1
  210.            XPoints = "=" & Val(Mid(XPoints, 2)) + 1
  211.            clear_spots
  212.         Else
  213.         If (.Item(0).Tag = 1 And .Item(1).Tag = 1 And .Item(2).Tag = 1) Or _
  214.            (.Item(3).Tag = 1 And .Item(4).Tag = 1 And .Item(5).Tag = 1) Or _
  215.            (.Item(6).Tag = 1 And .Item(7).Tag = 1 And .Item(8).Tag = 1) Or _
  216.            (.Item(0).Tag = 1 And .Item(3).Tag = 1 And .Item(6).Tag = 1) Or _
  217.            (.Item(1).Tag = 1 And .Item(4).Tag = 1 And .Item(7).Tag = 1) Or _
  218.            (.Item(2).Tag = 1 And .Item(5).Tag = 1 And .Item(8).Tag = 1) Or _
  219.            (.Item(0).Tag = 1 And .Item(4).Tag = 1 And .Item(8).Tag = 1) Or _
  220.            (.Item(2).Tag = 1 And .Item(4).Tag = 1 And .Item(6).Tag = 1) Then
  221.            WinnerMessage.Label2 = "One more to '0'"
  222.            WinnerMessage.Show 1
  223.            YPoints = "=" & Val(Mid(YPoints, 1)) + 1
  224.            clear_spots
  225.         End If
  226.         End If
  227.     End With
  228. End Sub
  229.